The Soda Pop
Bài 1 :
Program Thu_tuc_chuan;
Uses Crt;
Var
so1,so2,tong,hieu,tich:Integer;
thuong:Real;
Begin
ClrScr;
TextColor(Red);
TextBackGround(Black);
Writeln('SU DUNG CAC THU TUC CHUAN');
TextColor(Yellow);
TextBackGround(Blue);
Write('-Nhap so thu nhat: ');
Readln(so1);
TextColor(Green);
TextBackGround(White);
Write('-Nhap so thu hai: ');
Readln(so2);
ClrScr;
TextColor(Magenta);
TextBackGround(Black);
GotoXY(31,10);
Writeln('KET QUA TINH TOAN');
GotoXY(25,12);
TextColor(Cyan);
TextBackGround(Black);
Writeln('+Tong cua 2 so ',so1,' va ',so2,' = ',so1+so2);
GotoXY(25,13);
TextColor(Red);
TextBackGround(Black);
Writeln('+Hieu cua 2 so ',so1,' va ',so2,' = ',so1-so2);
GotoXY(25,14);
TextColor(Yellow);
TextBackGround(Black);
Writeln('+Tich cua 2 so ',so1,' va ',so2,' = ',so1*so2);
GotoXY(25,15);
TextColor(Green);
TextBackGround(Black);
Writeln('+Thuong cua 2 so ',so1,' va ',so2,' = ',so1/so2:6:2);
GotoXY(26,22);
TextColor(Red);
TextBackGround(Black);
Writeln('Bam phim <Enter> de ket thuc');
Readln;
ClrScr;
End.

Bài 2 :
Program Thu_tuc_tu_tao;
Uses Crt;
Procedure Ve(k:Integer; Kytu:Char);
Var
i:Integer;
Begin
For i:=1 To k Do
Write(kytu);
Writeln;
End;
Begin
ClrScr;
Textcolor(Yellow);
TextBackGround(Black);
Writeln(' THU TUC TU TAO');
Writeln;
Textcolor(Red);
TextBackGround(Black);
Ve(50,'*');
Textcolor(Green);
TextBackGround(Black);
Ve(50,'A');
Textcolor(Cyan);
TextBackGround(Black);
Ve(50,'+');
Textcolor(Magenta);
TextBackGround(Black);
Ve(50,'B');
Textcolor(Cyan);
TextBackGround(Black);
Ve(50,'=');
Textcolor(Green);
TextBackGround(Black);
Ve(50,'C');
Textcolor(Red);
TextBackGround(Black);
Ve(50,'*');
Writeln;
Textcolor(Blue);
TextBackGround(Black);
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

Bài 3:
Program Ham_chuan;
Uses Crt;
Begin
ClrScr;
TextColor(Red);
TextBackGround(Black);
Writeln('HE THONG CAC HAM CHUAN DA HOC');
Writeln('-----------------------------');
TextColor(Yellow);
TextBackGround(Black);
Writeln(' +Cac ham ung dung voi so nguyen');
Writeln('-X=5,Ham Pred(X) = ',Pred(5)); {--> 4}
Writeln('-X=5,Ham Succ(X) = ',Succ(5)); {--> 6}
Writeln('-X=-5,Ham Abs(X) = ',Abs(5)); {--> 5}
Writeln('-X=10,Ham Sqr(X) = ',Sqr(10)); {-->100}
Writeln('-X=16,Ham Sqrt(X) = ',Sqrt(16):0:0); {-->4}
Writeln('-X=3,Ham Odd(X) = ',Odd(3)); {-->True}
Writeln('-X=3.1416,Ham Trunc(X) = ',Trunc(3.1416)); {-->3}
Writeln;
Writeln(' Bam phim <Enter> de xem tiep');
Readln;
TextColor(White);
TextBackGround(Black);
ClrScr;
TextColor(Cyan);
TextBackGround(Black);
Writeln(' +Cac ham ung dung voi so thuc');
Writeln('-X=3.1416,Ham Round(X) = ',Round(3.1416)); {-->3}
Writeln('-Ham Pi co tri bang = ',pi); {-->3.1415926536E+00}
Writeln('-X=3.1416,Ham Frac(X) = ',Frac(3.1416)); {-->1.14160000000E-01}
Writeln('-X=3.1416,Ham Int(X) = ',Int(3.1416):0:0); {-->3}
TextColor(Magenta);
TextBackGround(Black);
Writeln(' +Cac ham ung dung voi kieu Boolean');
Writeln('-Ham Ord(false) = ',Ord(false)); {--> 0}
Writeln('-Ham Ord(True) = ',Ord(true)); {--> 1}
Writeln('-Ham Pred(True) = ',Pred(true)); {--> FALSE}
Writeln('-Ham Pred(False) = ',Pred(False)); {--> TRUE}
Writeln('-Ham Succ(False) = ',Succ(False)); {--> TRUE}
Writeln('-Ham Succ(True) = ',Succ(True)); {--> FALSE}
Writeln;
Writeln(' Bam phim <Enter> de xem tiep');
Readln;
TextColor(White);
TextBackGround(Black);
ClrScr;
TextColor(LightBlue);
TextBackGround(Black);
Writeln(' +Cac ham va thu tuc ung dung voi kieu ky tu');
Writeln('-Ham Ord("A") = ',Ord('A')); {--> 65}
Writeln('-Ham Chr(66) = ',Chr(66)); {--> 'B'}
Writeln('-Ham Chr(Ord("A") = ',Chr(Ord('A'))); {--> 'A'}
Writeln('-Ham Pred("B") = ',Pred('B')); {--> 'A'}
Writeln('-Ham Succ("B") = ',Succ('B')); {--> 'C'}
Writeln('-Ham Upcase("a") = ',Upcase('a')); {--> 'A'}
Writeln;
TextColor(Red);
TextBackGround(Black);
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

Bài 4 :
Program Ham_tu_tao;
Uses Crt;
Var
n:Integer;
Function giaithua(M :Integer):LongInt;
Var
i,gt:Integer;
Begin
gt:=1;
For i:=1 To M Do
gt:=gt*i;
Writeln('+Giai thua cua ',m,' la: ',gt);
End;
BEGIN
ClrScr;
TextColor(Red);
TextBackGround(Black);
Writeln('HAM TINH GIAI THUA TU TAO');
Writeln('-------------------------');
TextColor(Yellow);
TextBackGround(Black);
Write('-Nhap so N = ');
Readln(n);
TextColor(Magenta);
TextBackGround(Black);
giaithua(n);
Writeln;
TextColor(Cyan);
TextBackGround(Black);
Writeln(' Bam phim <Enter> de ket thuc');
Readln
END.

Bài 1 :

Program Phep_tinh_so_hoc;
Var
x,y:Integer;
phep_tinh,tiep:Char;
(*---------------------*)
FUNCTION CONG(a,b:Integer):Integer;
Begin
cong:=a+b;
End;
(*---------------------*)
FUNCTION TRU(a,b:Integer):Integer;
Begin
tru:=a-b;
End;
(*---------------------*)
FUNCTION NHAN(a,b:Integer):Integer;
Begin
nhan:=a*b;
End;
(*---------------------*)
FUNCTION CHIA(a,b:Integer):Integer;
Begin
chia:=a DIV b;
End;
BEGIN
Repeat
Writeln('CAC PHEP TOAN SO HOC');
Writeln('--------------------');
Write('-Nhap so thu nhat: ');
Readln(x);
Write('-Nhap so thu hai : ');
Readln(y);
Write('-Nhap phep tinh (+,-,*,/): ');
Readln(phep_tinh);
Case phep_tinh Of
'+' :Writeln('+So ',X,' + ',Y,' = ',cong(x,y):5);
'-' :Writeln('+So ',X,' - ',Y,' = ',tru(x,y):5);
'*' :Writeln('+So ',X,' * ',Y,' = ',nhan(x,y):5);
'/' :Writeln('+So ',X,' / ',Y,' = ',chia(x,y):5);
End;
Writeln;
Write(' Co thuc hien tiep khong (c/k) ');
Readln(tiep);
Until Upcase(tiep)='K';
END.

Bài 1 :

Program Uoc_so_chung;
Uses Crt;
Var
so1,so2,usc:Integer;
tiep:Char;
(*----------------*)
Procedure gioi_thieu;
Begin
ClrScr;
TextColor(Red);
TextBackGround(Black);
Writeln('**************************************');
Writeln('* MINH HOA CHUONG TRINH CON *');
Writeln('* Su khac nhau giua Thu tuc va Ham *');
Writeln('* Tim uoc so chung lon nhat cua 2 so *');
Writeln('* Ngay viet chuong trinh 24-3-1999 *');
Writeln('**************************************');
Writeln;
End;
(*----------------*)
Procedure Nhap_so;
Var
sua:Char;
Begin
TextColor(Yellow);
TextBackGround(Black);
Repeat
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
TextColor(Cyan);
TextBackGround(Black);
Write('-Co can sua khong (c/k) ? ');
Readln(sua);
Until Upcase(sua) ='K';
Writeln;
End;
(*----------------*)
Function uoc_so(x,y:Integer):Integer;
Begin
Repeat
If x > y Then
x:=x-y
Else
y:=y-x;
Until x=y;
usc:=x;
End;
(*----------------*)
Procedure Xuat;
Begin
TextColor(Magenta);
TextBackGround(Black);
Writeln('+Uoc so chung lon nhat cua');
Writeln(' So ',so1,' va ',so2,' la: ',usc);
Writeln;
End;
(*----------------*)
BEGIN
Repeat
Gioi_thieu;
Nhap_so;
uoc_so(so1,so2);
Xuat;
TextColor(Green);
TextBackGround(Black);
Write('-Co thuc hien tiep nua khong (c/k)? ');
Readln(tiep);
Until (tiep = 'k') Or (tiep = 'K');
END.

Bài 1 :
Program Su_dung_ham;
Var
so1,so2,so3,tong:Integer;
(*-----------------------*)
Function tam_thua(x:Integer):LongInt;
Begin
tam_thua:=x*x*x;
End;
BEGIN
Writeln('CHUONG TRINH CON LA HAM');
Writeln('-----------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
Writeln('+Tam thua cua so thu nhat (',so1,') la: ',tam_thua(so1));
Writeln('+Tam thua cua so thu hai (',so2,') la: ',tam_thua(so2));
tong:=tam_thua(so1) + tam_thua(so2);
Writeln('+Tong tam thua cua 2 so: ',tong);
If tam_thua(so1) > so3 Then
Writeln('Tam thua cua so 1 lon hon so ',so3)
Else
Writeln('+Tam thua cua so 1 nho hon so ',so3);
Readln
END.


Bài 1 :
Program Su_dung_thu_tuc;
Var
so1,so2,so3,tong,y1,y2:Integer;
(*-----------------------*)
Procedure tam_thua(x:Integer;Var y:Integer);
Begin
y:=x*x*x;
End;
BEGIN
Writeln('CHUONG TRINH CON LA THU TUC');
Writeln('---------------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
tam_thua(so1,y1);
tam_thua(so2,y2);
Writeln('+Tam thua cua so thu nhat (',so1,') la: ',y1);
Writeln('+Tam thua cua so thu hai (',so2,') la: ',y2);
tam_thua(so1,y1);
tam_thua(so2,y2);
tong:=y1+y2;
Writeln('+Tong tam thua cua 2 so: ',tong);
If y1 > so3 Then
Writeln('Tam thua cua so 1 lon hon so ',so3)
Else
Writeln('+Tam thua cua so 1 nho hon so ',so3);
Readln
END.

Bài 1 :
Program Thu_tuc_long_nhau;
Uses Crt;
Var
t:Byte;
tiep:Char;
(*--------------------------------*)
Procedure Giai_tri(x:Integer);
Procedure giai_tri1;
Begin
TextColor(Green);
TextBackGround(Black);
Writeln('Troi lanh,nen o nha coi TV');
End;
(*----------------*)
Procedure giai_tri2;
Begin
TextColor(Cyan);
TextBackGround(Black);
Writeln('Troi mat me,nen di cam trai');
End;
(*----------------*)
Procedure giai_tri3;
Begin
TextColor(Magenta);
TextBackGround(Black);
Writeln('Troi hoi nong,nen di Vung Tau');
End;
(*-----------------*)
Procedure giai_tri4;
Begin
TextColor(Red);
TextBackGround(Black);
Writeln('Troi nong,nen di Da Lat');
End;
(*-----------------*)
Begin
If t <= 20 Then
Giai_tri1;
If ((t > 20) And (t <= 25)) Then
Giai_tri2;
If ((t > 25) And (t <= 30)) Then
Giai_tri3;
If t > 30 Then
Giai_tri4;
End;
(*--------------------------------*)
BEGIN
Repeat
ClrScr;
TextColor(Yellow);
TextBackGround(Black);
Writeln('CHON LOAI GIAI TRI THICH HOP');
Writeln('----------------------------');
Write('-Cho biet nhiet do ngay hom nay: ');
Readln(t);
Giai_tri(t);
Writeln;
TextColor(LightBlue);
TextBackGround(Black);
Write('Thuc hien tiep khong (c/k) ');
Readln(tiep);
Until (tiep='k') Or (tiep='K');
END.

Bài 1 :
Program Lenh_goi_thutuc_va_ham;
Uses Crt;
Var
n:Integer;
Function GiaiThua(x:Integer):LongInt;
Var
i:Integer;
gt:LongInt;
Begin
gt:=1;
For i:=1 To x Do
gt:=gt*i;
Writeln('+Giai thua cua ',x,' = ',gt);
End;
BEGIN
ClrScr;
Writeln('LENH GOI THU TUC VA HAM');
Writeln('-----------------------');
Write('-Nhap so nguyen N= ');
Readln(n);
Writeln('+Binh phuong cua ',n,' = ',Sqr(n));;
Writeln('+Can bac hai cua ',n,' = ',Sqrt(n):0:2);
GiaiThua(n);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln;
END.
Program Thoat_chuong_trinh;
Var
n:Integer;
ch:Char;
Begin
Repeat
Write('Bam mot phim, "t" de thoat ');
Readln(ch);
If (ch='t') Or (ch ='T') Then
exit {Hoac Halt}
Else
Begin
Write('-Nhap mot so nguyen N= ');
Readln(n);
Writeln('+Binh phuong cua ',n,' = ',Sqr(n));
Writeln('+Can bac hai cua ',n,' = ',Sqrt(n):0:2);
End;
Write('-Thuc hien tiep khong (c/k) ');
Readln(ch)
Until (ch='k') Or (ch='K');
End.
Program Tham_so;
Var
so1,so2:Integer;
(*-------------*)
Procedure Doi_cho(x,y:Integer);
Var
tam:Integer;
Begin
tam:=x;
x:=y;
y:=tam;
Writeln('+So thu nhat = ',x);
Writeln('+So thu hai = ',y);
Writeln;
End;
BEGIN
Writeln('THAM SO HINH THUC VA THAM SO THUC');
Writeln('---------------------------------');
Write('-Nhap so thu nhat = ');
Readln(so1);
Write('-Nhap so thu hai = ');
Readln(so2);
Writeln;
Writeln(' SAU KHI DOI CHO');
Writeln;
Doi_cho(so1,so2);
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln
END.
Program Truyen_bang_tri;
Uses Crt;
Var
so1,so2:Integer;
(*-------------------*)
Procedure Truyen(x,y:Integer);
Begin
Writeln('Trong thu tuc thi');
x:=x+10;
y:=y+10;
Writeln('-Tham so X=X+10= ',x);
Writeln('-Tham so Y=Y+10= ',y);
End;
BEGIN
ClrScr;
Writeln('TRUYEN THAM SO BANG TRI');
Writeln('-----------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Writeln;
Writeln(' +So thu nhat truyen cho tham so X');
Writeln(' +So thu hai truyen co tham so Y');
Writeln;
Truyen(so1,so2);
Writeln;
Writeln(' Sau khi truyen tham so thi');
Writeln(' +So thu nhat bay gio la: ',so1);
Writeln(' +So thu hai bay gio la : ',so2);
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln;
END.
Program Truyen_bang_bien;
Uses Crt;
Var
so1,so2:Integer;
(*-------------------*)
Procedure Truyen(Var x,y:Integer);
Begin
Writeln('Trong thu tuc thi');
x:=x+10;
y:=y+10;
Writeln('-Tham so X=X+10= ',x);
Writeln('-Tham so Y=Y+10= ',y);
End;
BEGIN
ClrScr;
Writeln('TRUYEN THAM SO BANG BIEN');
Writeln('-----------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Writeln;
Writeln(' +So thu nhat truyen cho tham so X');
Writeln(' +So thu hai truyen co tham so Y');
Writeln;
Truyen(so1,so2);
Writeln;
Writeln(' Sau khi truyen tham so thi');
Writeln(' +So thu nhat bay gio la: ',so1);
Writeln(' +So thu hai bay gio la : ',so2);
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln;
END.
Program Truyen_ket_hop;
Uses Crt;
Var
n,m:Integer;
s:LongInt;
(*--------------*)
Procedure Tong_bp(x,y:Integer; Var Tong:LongInt);
Var
i:Integer;
Begin
Tong:=0;
For i:= x To y Do
Tong:= Tong + (i * i);
End;
BEGIN
ClrScr;
Writeln(' TRUYEN THAM SO KET HOP');
Writeln('Tinh tong binh phuong tu so N den so M');
Writeln('--------------------------------------');
Write('-Tinh tu so: ');
Readln(n);
Write('-Tinh den so: ');
Readln(m);
s:=0;
If n < m Then
Tong_bp(n,m,s)
Else
Tong_bp(m,n,s);
Writeln;
Writeln('+Tong binh phuong tu ',n,' den ',m,' la: ',S);
Writeln;
Write(' Bam phim <Enter> de ket thuc ');
Readln
END.
Program Kiem_tra_kieu_tham_so;
{$V-} {Neu bo chi thi nay se gap loi Type Mismatch}
TYPE
Chuoi=String[255]; {Khai bao kieu du lieu moi}
Var
dong1:String[80];
dong2:String[100];
(*------------------*)
Procedure In_Chuoi(Var x :Chuoi);
Var
i:Integer;
Begin
For i:=1 To length(x) Do
Write(chr(Ord(x[i])));
End;
BEGIN
Writeln('KIEM TRA KIEU CUA THAM SO');
Writeln('-------------------------');
dong1:='Tram nam trong coi nguoi ta';
In_Chuoi(dong1);
Writeln;
dong2:='Chu tai chu menh kheo la ghet nhau';
In_chuoi(dong2);
Readln;
END.
Program Mien_tac_dong_cua_bien;
Var
A,B,C:Integer;
(*-------------*)
Procedure Me1;
Var
D,E:Integer;
(*-------------*)
Procedure Con1;
Var
D1,E1:Integer;
Begin
d1:=5;
e1:=5;
Writeln('+Tong cua Con1= ',(a+b+c+d+e+d1+e1));
Writeln;
End;
(*-------------*)
Procedure Con2;
Var
D2,E2:Integer;
Begin
d2:=10;
e2:=10;
Writeln('+Tong cua Con2= ',(a+b+c+d+e+d2+e2));
Writeln;
End;
(*-------------*)
Begin
d:=15;
e:=15;
Con1;
Con2;
Writeln('+Tong cua Me1= ',(a+b+c+d+e));
Writeln;
End;
(*-------------*)
Procedure Me2;
Var
F,G:Integer;
Begin
f:=20;
g:=20;
Writeln('+Tong cua Me2= ',(a+b+c+f+g));
Writeln;
End;
(*-------------*)
BEGIN
a:=30;
b:=30;
c:=30;
Me1;
Me2;
Writeln('+Tong cua chuong trinh chinh= ',(a+b+c));
Writeln;
Write(' Bam phim <Enter> de ket thuc ');
Readln
END.


Program Bien_rieng;
(*-------------------*)
Procedure Chuvi;
Var
dai,rong,p:Integer;
Begin
Write('-Nhap chieu dai: ');
Readln(dai);
Write('-Nhap chieu rong: ');
Readln(rong);
P:=2*(dai+rong);
Writeln('+Chu vi hinh chu nhat = ',p);
Writeln;
End;
(*-------------------*)
Procedure Dientich;
Var
s:Integer;
Begin
s:=dai * rong;
Writeln('+Dien tich hinh chu nhat= ',s);
End;
BEGIN
Writeln('TINH CHU VI DIEN TICH');
Writeln('Su dung bien rieng');
Readln
END.

Program Bien_chung;
Var
dai,rong,P,S:Integer;
(*-------------------*)
Procedure Chuvi;
Begin
P:=2*(dai+rong);
Writeln('+Chu vi hinh chu nhat = ',p);
Writeln;
End;
(*-------------------*)
Procedure Dientich;
Begin
s:=dai * rong;
Writeln('+Dien tich hinh chu nhat= ',s);
Writeln;
End;
BEGIN
Writeln('TINH CHU VI DIEN TICH');
Writeln('Su dung bien chung');
Writeln('-------------------');
Write('-Nhap chieu dai: ');
Readln(dai);
Write('-Nhap chieu rong: ');
Readln(rong);
Writeln;
ChuVi;
DienTich;
Writeln;
Write(' Bam phim <Enter> de ket thuc ');
Readln
END.
Program Thuoc_tinh_mau;
Uses Crt;
Begin
ClrScr;
TextColor(Green);
TextBackGround(Black);
Writeln('-Chu mau xanh la cay tren nen den');
TextColor(LightBlue);
TextBackGround(White);
Writeln('-Chu mau xanh duong nhat tren nen trang');
TextColor(LightRed);
TextBackGround(Blue);
Writeln('-Chu mau do tuoi tren nen xanh duong');
TextColor(Cyan);
TextBackGround(Black);
Writeln('-Chu mau xanh Cyan tren nen den');
TextColor(Magenta);
TextBackGround(Black);
Writeln('-Chu mau do tim tren nen den');
TextColor(Yellow);
TextBackGround(Black);
Writeln('-Chu mau vang tren nen den');
TextColor(White);
TextBackGround(Blue);
Writeln('-Chu mau trang tren nen xanh duong');
TextColor(Brown);
TextBackGround(Black);
Writeln('-Chu mau nau tren nen den');
Writeln;
TextColor(Red);
Write('Bam phim <Enter> de lam loang mau trang ra toan man hinh');
Readln;
TextBackGround(White);
ClrScr;
TextColor(Black);
Writeln('Bam phim <Enter> de khoi phuc lai mau chu va mau nen');
Writeln('Chu mau vang tren nen xanh duong');
Readln;
TextColor(Yellow);
TextBackGround(Blue);
ClrScr;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Ban_Nhac;
Uses Crt;
Procedure Nhac(Caodo, Truongdo:Integer);
Begin
Sound(Caodo);
Delay(Truongdo);
end;
BEGIN
ClrScr;
GotoXY(29,10);
TextColor(4);
Writeln('VIET NHAC BANG PASCAL');
GotoXY(29,11);
TextColor(14);
Writeln('---------------------');
GotoXY(27,12);
TextColor(Green);
Writeln('Bam phim bat ky de ngung');
Repeat
Nhac(131,112);Nhac(175,448);Nhac(131,112);
Nhac(262,448);Nhac(131,112);Nhac(220,336);
Nhac(196,112);Nhac(220,112);Nhac(175,336);
Nhac(131,336);Nhac(175,336);Nhac(294,336);
Nhac(262,336);Nhac(220,112);Nhac(235,112);
Nhac(262,1344);Nhac(131,336);Nhac(175,336);
Nhac(294,336);Nhac(262,336);Nhac(220,112);
Nhac(235,112);Nhac(262,336);Nhac(196,112);
Nhac(220,112);Nhac(175,336);Nhac(131,336);
Nhac(175,336);Nhac(220,112);Nhac(235,112);
Nhac(196,560);Nhac(175,112);Nhac(175,1120);
Until KeyPressed;
Nosound;
END.
Program mau;
Uses Crt;
Var
x,y:Byte;
Begin
TextBackGround(Black);
ClrScr;
Repeat
x:=Succ(Random(80));
y:=Succ(Random(25));
Window(x,y,x+Random(10),y+Random(8));
TextBackGround(Random(16));
ClrScr;
Until KeyPressed;
End.
Program Giai_thua;
Var
n,i,gt:Integer;
Begin
Writeln('TINH N! KHONG DUNG DE QUY');
Writeln('-------------------------');
Write('-Nhap N = ');
Readln(n);
gt:=1;
For i:=1 To N Do
gt:=gt * i;
Writeln('+Giai thua cua ',n,' = ',gt);
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Giai_thua;
Var
n,i:Integer;
Function gt(m:Integer):Integer;
Var
x,y:Integer;
Begin
If m = 0 Then
gt:=1
Else
Begin
x:=m - 1;
y:= gt(x);
gt:=m * y;
End;
End;
BEGIN
Writeln('TINH N! DUNG DE QUY');
Writeln('-------------------');
Write('-Nhap N = ');
Readln(n);
Writeln('+Giai thua cua ',n,' = ',gt(n));
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Giai_thua;
Var
n,i:Integer;
Function gt(m:Integer):Integer;
Begin
If m = 0 Then
gt:=1
Else
gt:=m * gt(m - 1);
End;
BEGIN
Writeln('TINH N! DUNG DE QUY');
Writeln('-------------------');
Write('-Nhap N = ');
Readln(n);
Writeln('+Giai thua cua ',n,' = ',gt(n));
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln
End.
Program uoc_so_chung_lon_nhat;
Var
so1,so2,s:Integer;
FUNCTION uscln(x,y:Integer):Integer;
Begin
If y = 0 Then
uscln:=x
Else
uscln:=uscln(y,x Mod y);
End;
BEGIN
Writeln('TIM USCLN BANG DE QUY');
Writeln('---------------------');
Write('-Nhap so thu nhat : ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
S:= USCLN(so1,so2);
Writeln;
Writeln('+Uoc so chung lon nhat cua ',so1,' va ',so2,' = ',s);
Writeln;
Write(' Bam phim <Enter> de ket thuc ');
Readln
END.

Program Uoc_so_chung_lon_nhat;
Var
so1,so2,s:Integer;
FUNCTION uscln(x,y:Integer):Integer;
Var
sodu:Integer;
Begin
While y <> 0 Do
Begin
sodu:=x Mod y;
x:=y;
y:=sodu;
End;
uscln:= x ;
End;
BEGIN
Writeln('TIM USCLN KHONG DUNG DE QUY');
Writeln('---------------------------');
Write('-Nhap so thu nhat : ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
S:= USCLN(so1,so2);
Writeln;
Writeln('+Uoc so chung lon nhat cua ',so1,' va ',so2,' = ',s);
Writeln;
Write(' Bam phim <Enter> de ket thuc ');
Readln
END.

Program So_Fibonacci;
Var
n:Integer;
FUNCTION Fibo(m:Integer):Integer;
Begin
If m <= 1 Then
Fibo:=1
Else
Fibo:=Fibo(m-1) + Fibo(m-2);
End;
BEGIN
Writeln('SO FIBONACCI CUA SO N');
Writeln('Dung dinh nghia de quy');
Writeln('---------------------');
Write('-Nhap so N= ');
Readln(n);
Writeln('+Neu N= ',n,' thi so Fibonacci la ',Fibo(n));
Writeln;
Write(' Bam phim <Enter> de ket thuc ');
Readln
END.
Program So_Fibonacci;
Var
n:Integer;
FUNCTION Fibo(m:Integer):Integer;
Var
i,tam,a,b:Integer;
Begin
a:=1;
b:=1;
For i:=2 To m Do
Begin
tam:=b;
b:=a + b;
a:=tam;
End;
Fibo:=b;
End;
BEGIN
Writeln('SO FIBONACCI CUA SO N');
Writeln('Khong dung dinh nghia de quy');
Writeln('----------------------------');
Write('-Nhap so N= ');
Readln(n);
Writeln('+Neu N= ',n,' thi so Fibonacci la ',Fibo(n));
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln
END.
Program Chong_dia_vang;
Type
chong=String;
Var
n,m:Integer;
PROCEDURE ChuyenDia(x,y:Chong);
Begin
Writeln('-Lan ',m,': Chuyen 1 dia tu chong ',x,' sang chong ',y);
m:=m+1;
End;
PROCEDURE DoiChong(n:Integer;A,B,C:Chong);
Begin
If n > 0 Then
Begin
DoiChong(n-1,A,C,B);
ChuyenDia(A,C);
DoiChong(n-1,B,A,C)
End;
End;
BEGIN
m:=1;
Write('-So dia trong chong 1: ');
Readln(n);
DoiChong(n,'1','2','3');
Writeln;
Writeln('+Neu co ',n,' dia thi can ',(m-1),' lan di chuyen dia');
Readln
END.
Program Tham_khao_truoc;
Var
x:Integer;
FUNCTION Up(Var i: Integer):Integer; Forward;
FUNCTION Down(Var i: Integer): Integer;
Begin
i:=i Div 2;
Writeln(i);
If i <> 1 Then
i:=Up(i);
End;
FUNCTION Up;
Begin
While i Mod 2 <> 0 Do
Begin
i:=i * 3 + 1;
Writeln(i);
End;
i:=Down(i);
End;
BEGIN
Writeln('MINH HOA VE THAM KHAO TRUOC');
Writeln('----------------------------');
Write('-Nhap mot so nguyen bat ky: ');
Readln(x);
x:=Up(x);
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln
END.
Program Khong_dung_Tham_khao_truoc;
Var
x:Integer;
BEGIN
Writeln('MINH HOA VE DANG DON GIAN');
Writeln('-------------------------');
Write('-Nhap mot so nguyen bat ky: ');
Readln(x);
While x <> 1 Do
Begin
If x Mod 2 = 0 Then
x:=x Div 2
Else
x:= x * 3 + 1;
Writeln(x);
End;
Writeln;
Write(' Bam phim <Enter> de ket thuc');
Readln
END.
Program Phep_cong;
{$I A:\VIDU\SOHOC.PAS}
Var
so1,so2:Integer;
tiep:Char;
Begin
Repeat
Writeln('PHEP CONG');
Writeln('---------');
Write('-So thu nhat= ');
Readln(so1);
Write('-So thu hai = ');
Readln(so2);
Writeln;
Writeln('+Ket qua ',so1,' + ',so2,' = ',Cong(so1,so2));
Writeln;
Write('-Thuc hien tiep ? (c/k) ');
Readln(tiep);
Until ((tiep='k') Or (tiep='K'));
End.
Program Phep_tru;
{$I A:\VIDU\SOHOC.PAS}
Var
so1,so2:Integer;
tiep:Char;
Begin
Repeat
Writeln('PHEP TRU');
Writeln('---------');
Write('-So thu nhat= ');
Readln(so1);
Write('-So thu hai = ');
Readln(so2);
Writeln;
Writeln('+Ket qua ',so1,' - ',so2,' = ',Tru(so1,so2));
Writeln;
Write('-Thuc hien tiep ? (c/k) ');
Readln(tiep);
Until ((tiep='k') Or (tiep='K'));
End.
Program Phep_nhan;
{$I A:\VIDU\SOHOC.PAS}
Var
so1,so2:Integer;
tiep:Char;
Begin
Repeat
Writeln('PHEP NHAN');
Writeln('---------');
Write('-So thu nhat= ');
Readln(so1);
Write('-So thu hai = ');
Readln(so2);
Writeln;
Writeln('+Ket qua ',so1,' * ',so2,' = ',Nhan(so1,so2));
Writeln;
Write('-Thuc hien tiep ? (c/k) ');
Readln(tiep);
Until ((tiep='k') Or (tiep='K'));
End.
Program Phep_chia;
{$I A:\VIDU\SOHOC.PAS}
Var
so1,so2:Integer;
tiep:Char;
Begin
Repeat
Writeln('PHEP CHIA');
Writeln('---------');
Write('-So thu nhat= ');
Readln(so1);
Write('-So thu hai = ');
Readln(so2);
Writeln;
Writeln('+Ket qua ',so1,' / ',so2,' = ',Chia(so1,so2));
Writeln;
Write('-Thuc hien tiep ? (c/k) ');
Readln(tiep);
Until ((tiep='k') Or (tiep='K'));
End.
Program Binh_phuong;
{$I A:\VIDU\SOHOC.PAS}
Var
n:Integer;
tiep:Char;
Begin
Repeat
Writeln('BINH PHUONG');
Writeln('---------');
Write('-Nhap so N= ');
Readln(n);
Writeln;
Writeln('+Binh phuong cua ',n,' = ',Binhphuong(n));
Writeln;
Write('-Thuc hien tiep ? (c/k) ');
Readln(tiep);
Until ((tiep='k') Or (tiep='K'));
End.
Program Lap_phuong;
{$I A:\VIDU\SOHOC.PAS}
Var
n:Integer;
tiep:Char;
Begin
Repeat
Writeln('LAP PHUONG');
Writeln('---------');
Write('-Nhap so N= ');
Readln(n);
Writeln;
Writeln('+Lap phuong cua ',n,' = ',Lapphuong(n));
Writeln;
Write('-Thuc hien tiep ? (c/k) ');
Readln(tiep);
Until ((tiep='k') Or (tiep='K'));
End.
Program Giai_Thua;
{$I A:\VIDU\SOHOC.PAS}
Var
N:Integer;
tiep:Char;
Begin
Repeat
Writeln('TINH GIAI THUA CUA SO N');
Writeln('-----------------------');
Write('-So N= ');
Readln(n);
Writeln;
Writeln('+Giai thua cua ',N,' = ',Giaithua(N));
Writeln;
Write('-Thuc hien tiep ? (c/k) ');
Readln(tiep);
Until ((tiep='k') Or (tiep='K'));
End.
Program Phep_tinh_so_hoc;
{$I A:\VIDU\SOHOC.PAS}
Var
so1,so2:Integer;
ch:Char;
Begin
Writeln('CAC PHEP TINH SO HOC');
Writeln('--------------------');
Write('-Nhap so thu nhat a= ');
Readln(so1);
Write('-Nhap so thu hai b= ');
Readln(so2);
Writeln('Phep tinh can thuc hien:');
Write('Cong (+); Tru (-); Nhan (*); Chia (/)');
Readln(ch);
Case ch Of
'+' :Writeln(so1,' + ',so2,' = ',Cong(so1,so2):5);
'-' :Writeln(so1,' - ',so2,' = ',Tru(so1,so2):5);
'*' :Writeln(so1,' * ',so2,' = ',Nhan(so1,so2):5);
'/' :Writeln(so1,' / ',so2,' = ',Chia(so1,so2):5);
End;
Writeln;
Writeln(' Bam phim <Enter> de cham dut');
Readln
End.
Program Phep_tinh_so_hoc;
{$I A:\VIDU\SOHOC.PAS}
Var
so1:Integer;
ch:Char;
Begin
Writeln('CAC PHEP TINH SO HOC');
Writeln('--------------------');
Write('-Nhap so = ');
Readln(so1);
Writeln('Phep tinh can thuc hien:');
Write('Binh phuong (b); Lap phuong (l); giai thua (g): ');
Readln(ch);
Case ch Of
'b','B':Writeln('+Binh phuong cua ',so1,' = ',Binhphuong(so1):5);
'l','L':Writeln('+Lap phuong cua ',so1,' = ',Lapphuong(so1):5);
'g','G':Writeln('+Giai thua cua ',so1,' = ',Giaithua(so1):5);
End;
Writeln;
Writeln(' Bam phim <Enter> de cham dut');
Readln
End.
Program Giai_thua;
Uses Crt, Myutil;
Var
N:Integer;
Begin
ClrScr;
Writeln('SU DUNG UNIT TU TAO');
Writeln('-------------------');
Write('-Nhap so n: ');
Readln(n);
Write(giaithua(n));
Readln
End.

??

??

??

??

Trường THPT Hà Huy Tập GV: Nguyễn Văn Hoán

Tổ : Toán Tin 8:54:37 PM